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— BcdTab.Mesa Edited by Sandman on August 23, 1977 10:37 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
BcdTableDefs: FROM "bcdtabledefs" , 
BcdTabDefs: FROM "bcdtabdef s" , 
InlineOefs: FROM " in! inedef s" , 
StringDefs: FROM "stringdef s" ; 

DEFINITIONS FROM BcdTabDefs, BcdDefs; 

BcdTab: PROGRAM 

IMPORTS BcdTableDefs, StringDefs 
EXPORTS BcdTabDefs 
SHARES BcdTabDefs * 
BEGIN 

Substring: TYPE = StringDefs .Substring; 

— tables defining the current symbol table 

hashvector: ARRAY HVIndex OF HTIndex; 

ht: DESCRIPTOR FOR ARRAY --HTIndex-- OF HTRecord; 

hashvec: DESCRIPTOR FOR ARRAY OF HTIndex = DESCRIPTOR[hashvector] ; 
htb: BcdTableDefs. TableBase; -- hash table 
ssb: STRING; -- id string 

updatebases: BcdTableDefs .TableNotifier = 
BEGIN OPEN BcdTableDefs; 

htb ♦- base[httype]; ssb ^ LOOPHOLE[base[sstype] . STRING]; 
ht ^ DESCRIPTOR[htb. LENGTH[ht]]; 
RETURN 
END; 

allocatehash: P'^OCEDURE RETURNS [hti: HTIndex] = 
BEGIN OPEN BcdTableDefs: 

next: Tablelndex = Allocate[httype, SIZE[HTRecord]] ; 
hti ^ LENGTH[ht]; 
IF hti*SIZE[HTRecord] # LOOPHOLE[next , CARDINAL] THEN 

ERROR StackAl 1 ocateError[h ttype] ; 
ht ♦- DESCRIPTOR[htb. LENGTH[ht]+l] ; 

ht[hti] ^ HTRecord[link: HTNull, offset: ssb. length]; 
RETURN [hti-1] 
END; 

-- variables for building the symbol string 

ssw: BcdTableDefs .Tablelndex; 

StringOverlay: TYPE = MACHINE DEPENDENT RECORD [ 

length, maxlength: CARDINAL]; 
StringPointer: TYPE = POINTER TO StringOverlay; 
StringHeaderSize: CARDINAL = SIZE[Str ingOverl ay] ; 

tableopen: BOOLEAN ♦- FALSE; 

BcdTablnit: PUBLIC PROCEDURE = 
BEGIN OPEN BcdTableDefs; 
ir tableopen THFN BcdTabErase[]; 
AddNot ify[updatebases] ; 
BcdTabReset[]; 
tableopen ♦- TRUE; 
RETURN 
END; 

BcdfabErase: PUBLIC PROCEDURE = 
BEGIN OPEN BcdTableDefs; 
tableopen ^ FALSE; 
Dr op Not ify [updatebases]; 
RETURN 
END; 

BcdTabReset: PUBl IC PROCEDURE = 
BEGIN OPEN BcdTableDefs; 
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i: HVIndex; 

ResetTab1e[sstyp0]; 

ResetTable[httype] ; 

FOR i IN HVIndex DO hashvector[i] ^ HTNull ENDLOOP; 

ht ♦- DESCRIPTOR[NIL. 0]; 

ssw ♦- Anocate[sstype, StringHeaderSize] + StringHeaderSize; 

LOOPHOLE[ssb, StringPointer] . length ^ LOOPHOLE[ssb , StringPointer].max1ength ♦• 0; 

[] ^ anocatehash[3; 

RETURN 

END; 

— hash entry creation 

EnterString: PUBLIC PROCEDURE [s; Substring] RETURNS [hti: HTIndex] =» 
BEGIN OPEN StringDefs, BcdTableDef s ; 
hvi: HVIndex; 

desc: SubStringDescrip tor ♦- [base:ssb, offset:, length:]; 
CharsPerWord: CARDINAL = Al toOef s .CharsPerWord; 
offset, length, nw: CARDINAL; 
ssi: Tablelndex; 
hvi <- hashvalue[s] ; 

FOR hti <- hashvecChvi], ht[hti].link UNTIL hti « HTNull 
DO 

desc. offset ♦- ht[hti ].off set; 
desc. length ♦- ht[hti + l] . of f set - desc. offset; 
IF EqualSubStrings[s, Qdesc] THEN RETURN C^ti]; 
ENDLOOP; 
offset ♦- ssb. length; length ♦• s. length; 

nw ♦- LOOPHOLE[ofrset+length+(CharsPerWord-l) - ssb.maxlength, CARDINAL]/CharsPerWord; 
IF nw # 
THEN 

BEGIN ssi ♦• Al locate[sstype, nw]; 
IF ssi # ssw THEN ERROR StackAl locateError[httype] ; 
ssw ♦- ssw + nw; 

LOOPHOLE[ssb, Str ingPoi nter] .maxlength ^ LOOPHOLE[ssb , StringPointer] .maxlength + nw*CharsPerWo 
♦♦rd; 

END; 
AppendSubString[ssb, s]; 
hti ♦• anocatehash[]; 

ht[hti].link *- hashvec[hvi] ; hashvec[hvi] ♦• hti; 
RETURN 
END; 

-- the following copied from symbol table. mesa 

ignorecases: BOOLEAN ♦- FALSE; 

hashvalue: PROCEDURE [s: Substring] RETURNS [HVIndex] = 
BEGIN -- computes the hash index for string s 

CharMask: MACHINE CODE [CHARACTER, WORD] RETURNS [CARDINAL] = L00PHOLE[Inl i neDef s . BITAND] ; 
mask: WORD = 137B; -- masks out ASCII case shifts 

n: CARDINAL = s. length; 
b: STRING = s.base; 
v: WORD; 

V ♦- CharMask[b[s.of fset], mask]*177B + CharMask[b[s . of fset + (n-l)] , mask]; 
RETURN [InlineDefs.BlTXOR[v, n*17B] MOD LENGTH[hashvec]] 
END; 

FindString: PUBLIC PROCEDURE [s: Substring] RETURNS [found: BOOLEAN, hti: HTIndex] = 
BEGIN 

OPEN StringDefs; 
desc: SubS tr i ngDescriptor ; 
ss: Substring = Qdesc; 
hti *■ hashvec[hashvalue[s]] ; 
WHIl C hti /y HTNull 

DO 

SubStringrorfiash[ss, hti]; 

round ♦- 
(IF ignorecases THEN Equ i val en tSubS tr ings ELSE EqualSubStr i ngs )[s , ss] ; 

IF found THFN RETURN; 

hti ^ ht[hti] . 1 ink: 

ENDLOOP; 
RETURN [FALSE, flTNull] 
END; 
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FindEquivalentString: PUBLIC PROCEDURE [s: Substring] RETURNS [found: BOOLEAN, hti: HTIndex] 
BEGIN 

oldcase: BOOLEAN = ignorecases; 
ignorecases ♦- TRUE; 
[found, hti] ^ FindStr1ng[s]; 
ignorecases *- oldcase; 
RETURN 
END; 

SubStringForHash: PUBLIC PROCEDURE [s: Substring, hti: HTIndex] = 
BEGIN -- gets string for hash table entry 
s.base ♦- ssb; 
IF hti = HTNull 

THEN s. offset ♦• s. length *- 
ELSE 
BEGIN 

s. offset *- ht[hti] .off set; 
s. length <- ht[hti + l].of fset - s. offset; 
END; 
RETURN 
END; 

END. 



